home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / clipper.exe / DEMOVE.PRG < prev    next >
Text File  |  1985-06-30  |  2KB  |  86 lines
  1. set bell off
  2. clear
  3. *
  4. Null   =     0
  5. Esc    =    27
  6. End    = 20224
  7. DwnAr  = 20480
  8. PgDwn  = 20736
  9. LeftAr = 19200
  10. RghtAr = 19712
  11. Home   = 18176
  12. UpAr   = 18432
  13. PgUp   = 18688
  14. *
  15. C_Up    =  Chr(24)
  16. C_Down  =  Chr(25)
  17. C_Right =  Chr(26)
  18. C_Left  =  Chr(27)
  19. *
  20. Top_Line  =   2
  21. Begin_Col =   1
  22. Bott_Line =  21
  23. End_Col   =  78
  24. *
  25. Frame = '▓▓▓▓▓▓▓▓ '
  26. set color to gr+/
  27. @ 1,0,22,79 Box Frame
  28. @ 23,0
  29. Set Color To /w
  30. @ 1,18 Say '  Clipper - Lastchar() Command demonstration '
  31. Set Color To w/,/w
  32. @ 23,20 Say 'Use CURSOR KEY pad or ESCAPE for Main Menu'
  33. *
  34. Line = 11
  35. Col  = 39
  36. Char = Chr(2)
  37. *
  38. Do While .T.
  39.   *
  40.   If Lastkey() = Esc
  41.     Exit
  42.   Endif [ Exit program if ESCAPE has been pressed ]
  43.   *
  44.   *
  45.   set color to r+/
  46.   Do Case
  47.     Case (Lastkey() = RghtAr) .and. (Col < End_Col)
  48.       Char = C_Right
  49.       @ Line,Col Say chr(196)
  50.       Col = Col + 1
  51.     Case (Lastkey() = LeftAr) .and. (Col > Begin_Col)
  52.       Char = C_Left
  53.       @ Line,Col Say chr(196)
  54.       Col = Col - 1
  55.     Case (Lastkey() = UpAr) .and. (Line > Top_Line)
  56.       Char = C_Up
  57.       @ Line,Col Say chr(179)
  58.       Line = Line - 1
  59.     Case (Lastkey() = DwnAr) .and. (Line < Bott_Line)
  60.       Char = C_Down
  61.       @ Line,Col Say chr(179)
  62.       Line = Line + 1
  63.     Case Lastkey() = End
  64.       Col = End_Col
  65.       Char = C_Right
  66.       @ Line,Col Say chr(196)
  67.     Case Lastkey() = Home
  68.       Col = Begin_Col
  69.       Char = C_Left
  70.       @ Line,Col Say chr(196)
  71.     Case Lastkey() = PgDwn
  72.       Line = Bott_Line
  73.       Char = C_Down
  74.       @ Line,Col Say chr(179)
  75.     Case Lastkey() = PgUp
  76.       Line = Top_line
  77.       Char = C_Up
  78.       @ Line,Col Say chr(179)
  79.   Endcase [ Set variables for cursor movement ]
  80.   *
  81.   Set Color To */w
  82.   @ Line,Col Say Char
  83. Enddo [ Cursor movement ]
  84. Set Color To w/,/w
  85. Return
  86.